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DIRECTORY 

AUoFileDefs: FROM "altof iledef s" USING [CFP], 

BcdDefs: FROM "bcddefs" USING [CTIndex, CTNull , NameString], 

ControlDefs: FROM "con troldef s" USING [FrameHandle, GlobalFrameHandle], 

CoreSwapDefs: FROM "coreswapdef s" USING [ExternalStateVector, SVPointer], 

LoadStateDefs: FROM "loadstatedef s" USING [Conf iglndex, ConfigNull]. 

ProcessDefs: FROM "processdef s" USING [ProcessHandle] , 

SegmentDefs: FROM "segmentdef s" USING [FileHandle, FileSegmentHandle] , 

WindowDefs: FROM "windowdefs" USING [WindowHandle]; 

DebugData: PROGRAM SHARES ProcessDefs - PUBLIC 

BEGIN 

level: INTEGER <r 0; 

IContext: ControlDefs .FrameHandle <- NIL; 

gContext: ControlDefs. GlobalFrameHandle *- NIL; 

pContext: ProcessDefs .ProcessHandle ♦- NIL; 

initBCD: BOOLEAN ♦- FALSE; 

ssb: BcdDefs. NameString; 

cti: BcdDefs. CTIndex <- BcdDef s.CTNul 1 ; 

config: LoadStateDefs. Conf iglndex <- LoadStateDefs .Conf igNul 1 ; 

bcdseg: SegmentDefs. FileSegmentHandle ^ NIL; 

StatePtr: CoreSwapDefs. SVPointer <- NIL; 

textwindow, userwindow: WindowDefs .WindowHandle; 

restartmessage: STRING ^ NIL; 

caseignoring: BOOLEAN ^ TRUE; 

worrybreaks: BOOLEAN <- FALSE; 

worryentry: BOOLEAN *- FALSE; 

DebuggerFP, SelfFP, DebuggeeFP: AUoFileDefs. CFP; 

DebuggeeFH: SegmentDefs . FileHandle; 

sigGF: ControlDefs .Global FrameHandle <- NIL; 

ESV: CoreSwapDefs. ExternalStateVector; 

--for Pilot 

mdsContext: CARDINAL <- 0; 
debugPilot: BOOLEAN <- FALSE; 
onDO: BOOLEAN ^ FALSE; 
altoXM: BOOLEAN ^ FALSE; 

END. .. 


